﻿Public Class DateAttribute
    Inherits AbstractAttribute

    Protected dateValue As Date

    Public Sub New(ByVal f As String, ByVal t As String)

        Call MyBase.New(f, "0", t)

    End Sub

    Public Overloads Property attV As Date

        Set(ByVal value As Date)
            Me.insertSQL = True
            Me.value = AccessDB.returnValueString(value, Me.type)
        End Set
        Get
            Return Me.value
        End Get
    End Property

End Class
